home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 7
/
Digital_Talk_07_1994-05-30_Digital_Talk_de_Side_D.d64
/
lottozahlen .bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
262b
|
16 lines
10 poke53280,0:poke53281,15:poke646,0
20 :
30 print "[147] lottozahlen - zufallsdemo"
40 :
50 print " bitte eine taste druecken !"
60 :
70 geta$ : if a$ = "" then 70
80 :
90 print " ihre glueckszahlen :"
100 :
110 for i = 1 to 6
120 : z=int(rnd(1)*49)+1
130 : print ,,z
140 next i
150 :